No Brasil, os deputados federais ocupam um dos cargos publicos federais de mais alto salario no pais. Esses salarios sao comumente questionados pela populacao devido o trabalho desenvolvido por eles, que deixam a desejar pela qualidade. Alem desse alto salario, observamos que os deputados tem recebido taxas adicionais elevadas, comparando-se a um salario extra! Nesta nossa analise, buscamos destacar quem sao esses individuos que tem recebido remuneracoes adicionais elevadas.

library(RMySQL)
## Loading required package: DBI
library(plotly)
## Loading required package: ggplot2
## 
## Attaching package: 'plotly'
## The following object is masked from 'package:ggplot2':
## 
##     last_plot
## The following object is masked from 'package:stats':
## 
##     filter
## The following object is masked from 'package:graphics':
## 
##     layout
mydb = dbConnect(MySQL(), user='bbbbd3102abeeb', password='cf660cf8', dbname='heroku_2767f33366f77cb', host='us-cdbr-iron-east-03.cleardb.net')
data <- dbReadTable(mydb, "folha")

apenasDeputados <- data[data$cargo == "DEPUTADO", ]
deputadosAno2016 <- apenasDeputados[apenasDeputados$ano=="2016",]
p <- plot_ly(y= deputadosAno2016[deputadosAno2016$mes=="1",]$remuneracao_eventual, type="box", name="Janeiro") %>%
  add_trace(y= deputadosAno2016[deputadosAno2016$mes=="2",]$remuneracao_eventual, name="Fevereiro") %>%
  add_trace(y= deputadosAno2016[deputadosAno2016$mes=="3",]$remuneracao_eventual, name="Marco") %>%
  add_trace(y= deputadosAno2016[deputadosAno2016$mes=="4",]$remuneracao_eventual, name="Abril") %>%
  add_trace(y= deputadosAno2016[deputadosAno2016$mes=="5",]$remuneracao_eventual, name="Maio") %>%
  add_trace(y= deputadosAno2016[deputadosAno2016$mes=="6",]$remuneracao_eventual, name="Junho") %>%
  add_trace(y= deputadosAno2016[deputadosAno2016$mes=="7",]$remuneracao_eventual, name="Julho") %>%
  add_trace(y= deputadosAno2016[deputadosAno2016$mes=="8",]$remuneracao_eventual, name="Agosto") %>%
  add_trace(y= deputadosAno2016[deputadosAno2016$mes=="9",]$remuneracao_eventual, name="Setembro") %>%
  add_trace(y= deputadosAno2016[deputadosAno2016$mes=="10",]$remuneracao_eventual, name="Outubro") %>%
  add_trace(y= deputadosAno2016[deputadosAno2016$mes=="11",]$remuneracao_eventual, name="Novembro") %>%
  add_trace(y= deputadosAno2016[deputadosAno2016$mes=="12",]$remuneracao_eventual, name="Dezembro") %>%
  layout(title="Remuneracao Eventual em 2016", xaxis=list(title="Mes"), yaxis=list(title="Valor Recebido"))
show(p)

p

Nesse grafico, observamos que no ano de 2016, os deputados federais receberam em sua maioria, menos que 5 mil reais por mes como remuneracao eventual. Entretanto, destaca-se a posicao de alguns que chegaram a receber quase 30 mil reais em um certo mes, o que chamou a nossa atencao para observar quais deputados foram os mais remunerados no ano de 2016.